palindrome number in qbasic using sub procedure